B Soft 4/B-Soft_4_19xx_Maik__Mike_de_Side_A.d64/stoo hat gepennt

Commodore BASIC | 2023-02-26 | 4KB | 110 lines

0 poke53280,14:poke53281,6:gosub1001
1 print"[147]"chr$(34)"...[215][193][197][200][210][197][206][196][160][211][212][207][206][197][200][197][206][199][197][160][211][195][200][204][201][197][198][160][213][206][196][160][202][212][210]"
2 print"[198][210][213][197][200][205][207][210][199][197][206][211][160][205][201][212][160][197][201][206][197][210][160][196][207][211][197][160][194][201][197][210] [212][207][196][205][213][197]-";
3 print"[196][197] [214][207][210][160][196][197][205][160][195]64 [211][193][211][211]"chr$(34)" heisst dieses [211]piel"
4 print"[212]ja, und auch genau darum geht es! [196]urch";
5 print"einen wirklich bloeden [218]ufall bist [196]u in";
6 print"[202][212][210]'s [196]reckhoehle gelandet. [215]eck' bloss"
7 print"nicht [211]too, der flippt sonst aus. [213]m [202][212][210]";
8 print"brauchst [196]u [196]ich kaum zu kuemmern, der"
9 print"ist eh breit."
10 print"[213]nd der [211]inn? 'raus ueber'n [194]alkon, so"
11 print"schnell wie's nur geht, klaro? [207]kay."
12 print"('ne [212]aste)":gosub999
50 print"[147][196]ie [212]uer hinter [196]ir ist fest verschlos-"
51 print"sen, so'ne [203]acke aber auch! [214]or [196]ir er-"
52 print"heben sich das [199]eruempel und die [205]uell-"
53 print"berge. [215]o gehst [196]u lang?"
54 print"(1) [204]inks,"
55 print"(2) rechts,"
56 print"(3) geradeaus?"
57 gosub999
58 ifa$="1"then100
59 ifa$="2"then200
60 ifa$="3"then300
61 goto57
100 print"[147][206]a toll! [206]atuerlich stolperst [196]u ueber"
101 print"'nen [203]arton mit [195]omputerzeitschriften"
102 print"und faellst genau auf [211]too... [196]er er-"
103 print"wacht, groelt fuerchterlich und bereitet";
104 print"[196]einem [204]eben ein klaegliches [197]nde, [196]u"
105 print"[208]immel!":goto2000
200 print"[147][196]u schlaengelst [196]ich langsam durch den"
201 print"ganzen [211]chrott hier. [213]nd nu?"
202 print"(1) [206]ach links gehen,"
203 print"(2) nach rechts ausweichen,"
204 print"(3) [196]ie goldene [205]itte waehlen?"
205 gosub999
206 ifa$="1"then400
207 ifa$="2"then500
208 ifa$="3"then600
209 goto205
300 print"[147][207]h, auch keine allzu gute [201]dee... [196]ein"
301 print"[198]uss verheddert sich im [211]chlauch vom"
302 print"[211]taubsauger und [196]u schlaegst der [204]aenge"
303 print"nach hin. [196]ein [203]opf schlaegt gegen den"
304 print"[200]eizkoerper und nun haste'n [211]chaedelba-"
305 print"sisbruch oder so, [196]oespaddel!":goto2000
400 print"[147][196]u krachst gegen das [194]uecherregal. [196]as"
401 print"erzuernt [211]too, und er macht [196]ich alle...";:goto2000
500 print"[147][208]ass' [196]och auf, wo [196]u hintrittst! [196]u"
501 print"rutschst auf einer leeren [218]igarettenpak-";
502 print"kung aus, purzelst ueber den [211]essel ge-"
503 print"gen [202][212][210], der reflexartig den [210]esetknopf"
504 print"drueckt. [202][212][210] ist manchmal ein ganz lie-"
505 print"ber [203]erl, aber in solchen [198]aellen laesst";
506 print"er nicht mit sich spassen! [197]r haut [196]ir"
507 print"erbost eine [196]iskettenbox um die [207]hren."
508 print"[201]n seiner [215]ut erschlaegt er [196]ich.":goto2000
600 print"[147][199]leich hinter den [200]oerspielkassetten ist";
601 print"die [194]alkontuer! [196]u oeffnest sie leise"
602 print"und stehst nun draussen. [196]u schliesst"
603 print"die [212]uere und schaust vom [194]alkon herun-"
604 print"tur. [200]uich! [196]as sind bestimmt 15 [205]eter!"
605 print"[215]ie willste da hinabkommen?"
606 print"(1) [196]u huepfst einfach."
607 print"(2) [196]u verlaesst [196]ich auf [196]eine [203]letter-";
608 print"    kuenste."
609 print"(3) [196]u seilst [196]ich mit einem [195]16-[206]etz-"
610 print"    teil, das [196]u vorher aus dem [215]ohnzi-"
611 print"    zimmer hast mitgehen lassen, ab."
612 gosub999
613 ifa$="1"then700
614 ifa$="2"then800
615 ifa$="3"then900
616 goto612
700 print"[147][206]atuerlich, warum denn nicht? [196]u faellst";
701 print"und faellst und faellst... in einen"
702 print"[211]wimming-[208]ool (?!). [215]ie [196]u das geschafft";
703 print"hast ist mir irgendwie schleierhaft aber";
704 print"egal. [196]u bist [202][212][210]'s [215]ohnung entronnen"
705 print"(allerdings ohne in [197]rfahrung zu gelan-"
706 print"gen, wie um [200]immels [215]illen [196]u da hinge-"
707 print"langt bist)! [213]nd nun die [208]reisfrage ([196]u"
708 print"hast hoffentlich gut aufgepasst in die-"
709 print"sem [211]piel): [215]elche [194]iermarke trank [202][212][210]?"
710 print"(1) [200]olsten [197]del?"
711 print"(2) [211]chultenbraeu?"
712 print"(3) [203]arlsquell?"
713 gosub999
714 ifa$="1"then718
715 ifa$="2"then720
716 ifa$="3"then718
717 goto713
718 print"[147][206]oe, das ist aber falsch.":goto2000
720 print"[147]";
721 print"[199][197][215][207][206][206][197][206]  ";:poke53280,0:::poke53280,1:goto721
800 print"[147][206]a, als ob [196]u klettern koenntest, wa? [196]u";
801 print"versuchst es vielleicht, aber [196]ein elen-";
802 print"diges [198]ree-[195]limbing endet mit einer zer-";
803 print"matschten [204]eiche auf [212]eerbelag. [208]ech!":goto2000
900 print"[147][211]cheisse! [196]as [203]abel hat doch nur zwei"
901 print"[205]eter! [213]nd es ist glitschig. [213]nd... [193]ah!";
902 print"[200]ochmut kommt schnell zu - plumps!":goto2000
999 geta$:ifa$=""then999
1000 return
1001 printchr$(142)"[147][154]volksmusik im bodensee ertraenken![146]":forx=1to1500:nextx
1002 poke53280,6:print"[147]"tab(6)"waehrend stonehenge schlief"
1003 forx=1to2000:nextx:return
2000 print"[206]ee, versuch's nochmal, [211]chnuckel!":gosub999:goto1